home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 055a.dms / 055a.adf / READERS_SOURCE.LHA / READERS_SOURCE / ED_CLAY / civcheat.amos / civcheat.amosSourceCode < prev   
AMOS Source Code  |  1992-02-26  |  1KB  |  39 lines
  1. '
  2. 'Civilization cheat
  3. 'By Edmund Clay
  4. 'Oct 94
  5. '
  6. 'Sets your treasury to 30000.
  7. 'The idea for this came from a letter in a magazine; I can't remember which  
  8. 'one. This is the first AMOS version. The program just asks what the current 
  9. 'value of the treasury is, searches through the file until it finds it, then 
  10. 'changes it to 30000 and saves the file again. It also saves a backup in 
  11. 'case things go horribly wrong, but they never have so far. With this cheat I
  12. 'reached Alpha Centauri in 1018 AD on emperor level. 30000 is the maximum. 
  13. 'any higher and the value will just reset to 30000 or become negative. 
  14. '  
  15. 'Are there any other games this technique would work with? It would have to
  16. 'save games in standard AmigaDOS format, with no compression.  
  17. '
  18. Print "Civilization(tm) cheat."
  19. F$=Fsel$("","","Load civilization .sve file")
  20. Open In 1,F$
  21. L=Lof(1)
  22. Close 1
  23. Reserve As Data 1,L
  24. Bload F$,Start(1)
  25. Print "What is your current treasury?"
  26. Input M : W=100
  27. Do 
  28.    Wait Key 
  29.    For Q=0 To 200
  30.       W=W+2
  31.       If Deek(Start(1)+W)=M
  32.          Doke Start(1)+W,30000
  33.          Print "saving with 30000 credits."
  34.          Bsave F$,Start(1) To Start(1)+Length(1)
  35.          End 
  36.       End If 
  37.    Next 
  38. Loop 
  39. Print "Oh no, it didn't work."